Amiga Games 1996 July/Amiga Games 1996 #7.iso/leser-forum/tobiasfranke/anleitung.bak/anleitung.amosSourceCode

AMOS Source Code | 1978-02-12 | 6KB | 276 lines

Rem Anleitung
Screen Open 1,320,200,32,Lowres
Curs Off
10
Paper 0
Cls
Pen 3
Print "          A n l e i t u n g"
Print "          ------------------"
Pen 2
Print
Print
Pen 20
Print "Hier noch ein paar Worte zur Anleitung:"
Print "Diese Anleitung ist wie ein Buch"
Pen 21
Print "aufgebaut, d.h. sie ist in ver-"
Print "schiedene Kapittel aufgeteilt, in"
Pen 22
Print "die Sie durch Dr�cken der ent-"
Print "sprechenden Taste kommen. Wer die"
Pen 23
Print "Anleitung aber der Reihe nach lesen"
Print "will, kann dieses mit der Taste 1."
Pen 24
Print "Ich w�nsche ihnen schon einmal viel"
Print "Spa� bei ,,LAP``!"
Pen 25
Print ""
Print "      (Bitte Taste dr�cken) "
Wait Key
15
WEITER=0
Cls
Print
Pen 3
Print "          Auswahlmen�"
Print "          -----------"
Print
Print ""
Pen 20
Print "  1 = Alles der Reihe nach! "
Pen 21
Print
Print "  2 = Das Hauptmen�         "
Pen 22
Print
Print "  3 = Ziel des Spiels       "
Pen 23
Print
Print "  4 = Tips                 "
Pen 24
Print ""
Print "  5 = �ber Frankenstein-Spiele "
Pen 25
Print
Print "  6 = Zur�ck zum Spiel"
Do
A$=Inkey$
If A$="1" Then Goto 30
If A$="2" Then Goto 40
If A$="3" Then Goto 50
If A$="4" Then Goto 60
If A$="5" Then Goto 70
If A$="6" Then Cls : Run "LAP.AMOS"
Loop
30
WEITER=1
40
Cls
Print
Pen 3
Print "          Das Hauptmen�"
Print "          -------------"
Print
Print
Pen 2
Print "Nachdem Sie das Spiel gestartet"
Print "haben, und Sie ihren Namen und"
Print "den Namen ihres Teams eingegeben"
Print "haben, erscheint das Hauptmen�."
Print "Sie sehen nun 6 Auswahlm�glich-"
Print "keiten, welche folgendes bedeuten:"
Wait Key
Print ""
Print
Pen 4
Print "AUTOS:"
Pen 2
Print ""
Print "Hier k�nnen Sie ihren Rennwagen"
Print "kaufen. Wenn Sie ihren Wagen"
Print "durch dr�cken der jeweiligen"
Print "Taste ausgew�hlt haben, erscheint"
Print "Ein Informationsk�stchen, in dem"
Print "weitere Einzelheiten stehen."
Print "Durch dr�cken der Taste J k�nnen"
Print "Sie den Kauf perfekt machen, wenn"
Print "Sie den Wagen allerdings nicht "
Print "kaufen wollen, dr�cken Sie"
Print "einfach N."
Wait Key
Print
Print
Pen 4
Print "Fahrer:"
Pen 2
Print
Print "Hier k�nnen Sie ihre Fahrer"
Print "anstellen. Die Auswahl"
Print "funktioniert genauso, wie"
Print "bei der Autoauswahl."
Wait Key
Print
Print
Pen 4
Print "Verbesserungen"
Pen 2
Print
Print "Hier k�nnen Verbesserungen"
Print "f�r ihren Rennwagen gekauft"
Print "werden. Die Auswahl funktioniert"
Print "genauso, wie bei der Auto "
Print "und Fahrerauswahl"
Wait Key
Print
Print
Pen 4
Print "Mechaniker"
Pen 2
Print
Print "Hier k�nnen Sie ihre"
Print "Mechanikerteams ein-"
Print "stellen."
Print "Die Auswahl funktioniert"
Print "genauso, wie bei der Auto"
Print "und Fahrerauswahl."
Wait Key
Print
Print
Pen 4
Print "Verhandlungen"
Pen 2
Print
Print "Hier verhandeln Sie mit dem"
Print "Fahrer oder dem Mechanikerteam"
Print "�ber den Risikobereich des"
Print "Fahrstils, bzw. die Schlampigkeit"
Print "der Reperaturen."
Print "Das bedeuted beim Fahrer, umso"
Print "Risikoreicher der Fahrstil, desto"
Print "gr��er ist die Chance auf eine"
Print "bessere Platzierung,aber auch"
Print "da� der Wagen zu Schrott "
Print "gefahren wird."
Print "Ebenso ist es bei den Mechanikern:"
Print "Umso schlampiger die Reperaturen"
Print "sind, desto schneller sind Sie,"
Print "aber gleichzeitig steigt die"
Print "Gefahr, das der Wagen auf der"
Print "Piste zerst�rt wird."
Wait Key
Print
Print
Pen 4
Print "Weiter"
Pen 2
Print
Print "Nachdem sie die Taste 6"
Print "gedr�ckt haben, kommen Sie"
Print "entweder A, in das Ereignis-"
Print "bild, in dem Sie positive"
Print "oder auch negative Nach-"
Print "richten bekommen."
Print "oder B, sofort in den"
Print "Grand-Prix-Modus, indem"
Print "Sie efahren, auf welchem"
Print "Platz ihr Fahrer gefahren"
Print "ist."
Print "Das Preisgeld, das Sie nach"
Print "dem Rennen bekommen,"
Print "richtet sich nach der"
Print "Platzierung."
Wait Key
If WEITER=1 Then Goto 50
Goto 15
50
Cls
Print
Pen 3
Print "        Ziel des Spiels"
Print
Pen 2
Print "Ziel des Spiels ist es,"
Print "von Fahrern, Autos, Mech-"
Print "anikern und Verbesserungen"
Print "jeweils das Beste zu"
Print "Besitzen."
Wait Key
Print ""
Print ""
Pen 4
Print "        Game Over "
Print ""
Pen 2
Print "Das Spiel beendet, wenn ihr"
Print "Verm�gen weniger als 0 DM"
Print "betr�gt."
Wait Key
If WEITER=1 Then Goto 60
Goto 15
60
Cls
Print ""
Pen 3
Print "           Tips"
Pen 2
Print
Print
Print "1. Es ist am Besten, wenn"
Print "man am Anfang Fahrer Nr.2,"
Print "Auto Nr.1, Mechaniker-"
Print "team Nr.1 und Verbesseruns"
Print "Set 1 kauft."
Wait Key
Print
Print "2.Anfangs bei den Verhandlungen"
Print "nicht besonderst auf Risiko"
Print "spielen ist besser, denn wenn"
Print "der Wagen Explodiert, und man"
Print "weniger als 300.000 DM f�r"
Print "einen neuen Wagen hat, kann"
Print "nicht mehr beim Grand Prix"
Print "mitfahren (ist ja logisch)."
Wait Key
Print
Print "3.Wenn Sie im Hauptmen� sind,"
Print "Taste 6(Weiter) dr�cken, und"
Print "nichts passiert, haben Sie"
Print "entweder noch keinen Fahrer,"
Print "Kein Auto, oder kein Mechaniker-"
Print "team."
Wait Key
Print ""
Print "4.Sobald Sie ein bischen Geld"
Print "haben, sollten sie es f�r einen"
Print "besseren Fahrer einsetzen."
Wait Key
If WEITER=1 Then Goto 70
Goto 15
70
Cls
Print
Pen 3
Print "      �ber Frankenstein Spiele"
Pen 2
Print
Print
Print "Frankenstein ist eine neugegr�ndete"
Print "Gruppe von Hobbyprogrammierern,die"
Print "bisher auf 3 Systemen Programmiert."
Print "Zur Zeit sind wir 4 Personen, bestehend"
Print "aus einem C64- Programmierer,zwei "
Print "PC- Programmierern und einem,"
Print "Amiga- Programmierer. Wer sich f�r"
Print "unsere Spiele interessiert, der schicke"
Print "doch 1DM in Briefmarken an die Adresse:"
Pen 4
Print ""
Print "           Tobias Franke"
Print "           Dieselstra�e 14"
Print "           86399 Bobingen"
Print
Pen 2
Wait Key
Goto 15